home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / A-COMAL Series / (k)aag.d64 / copyfile2.basic (.txt) < prev    next >
Commodore BASIC  |  2007-02-28  |  1KB  |  50 lines
  1. 1 REM OPEN15,8,15,"S0:COPYFILE2.BASIC":CLOSE15:SAVE"0:COPYFILE2.BASIC",8
  2. 10 POKE53280,11:POKE53281,0:POKE646,13
  3. 15 POKE55,0:POKE56,23:POKE643,0:POKE644,23
  4. 17 GOSUB500
  5. 20 PRINT CHR$(147),CHR$(14)
  6. 30 PRINT "[208]LEASE ENTER FILENAME WITH"
  7. 40 PRINT ",S[153] FOR [211][197][209] OR ,P[153] FOR [208][210][199]
  8. 50 [133] "AFTER THE NAME: SYS";F$,T$
  9. 60 [159]15,8,15,"I0":[132]15,A,B$,C,D
  10. 70 [139] A[178]0 [167] 100:[143] !DISK OK!
  11. 80 [153] "STR$ISK PROBLEM! ";B$
  12. 90 [160]15:[160]2:[144]
  13. 100 [143] *** LOAD FILE ***
  14. 110 [159]2,8,8,F$[170]","[170]T$[170]",R":[132]15,A,B$,C,D
  15. 120 [139] A[179][177]0 [167] [144]
  16. 130 [153] "CONT(null)EADING FILE..."
  17. 131 [158] LD:[160]2
  18. 132 [139] [194](254)[179][177]0 [167] 140
  19. 133 [132]15,A,B$,C,D:[139]A[177]0[167]80
  20. 134 [153]"ASCILE TOO LARGE":[144]
  21. 140 [160]2
  22. 150 [153]"PRINTRIGHT$NSERT DISK TO WRITE FILE TO"
  23. 160 [133] "AND PRESS (null)VAL(null)(null)(null)(null)SYS";D$
  24. 170 [159]2,8,8,F$[170]","[170]T$[170]",W":[132]15,A,B$,C,D
  25. 180 [139] A[179][177]0 [167] 80
  26. 190 [153] "CONT(null)RITTING FILE..."
  27. 191 [158] SV:[160]2
  28. 192 [139] [194](254)[178]0 [167] 60
  29. 200 [160] 2
  30. 210 [153] "ATNLL DONE."
  31. 220 [128]
  32. 300 [131] 162,2,32,198,255,169,0,133
  33. 310 [131] 253,169,24,133,254,160,0,32
  34. 320 [131] 207,255,145,253,230,253,208,2
  35. 330 [131] 230,254,165,254,201,160,240,9
  36. 340 [131] 32,183,255,240,234,73,64,240
  37. 350 [131] 4,132,253,132,254,76,204,255
  38. 360 [131] 162,2,32,201,255,169,0,133
  39. 370 [131] 251,169,24,133,252,160,0,165
  40. 380 [131] 251,197,253,208,6,165,252,197
  41. 390 [131] 254,240,226,177,251,32,210,255
  42. 400 [131] 230,251,208,2,230,252,32,183
  43. 410 [131] 255,240,228,76,41,192
  44. 500 T[178]0
  45. 510 [129]X[178]49152[164]49245:[135]M:[151]X,M:T[178]T[170]M:[130]X
  46. 520 LD[178]49152:SV[178]49200
  47. 530 [139] T[178]15375 [167] [142]
  48. 540 [153] "STR$ATA CHECKSUM ERROR -- STOPPING PROGRAM.
  49. 550 STOP
  50.